data-raw/Load Data.r

In connerpike/icd: Provides helper functions for ICD-9 and 10 conversions and descriptions

library(readxl)

icd10_file <- "data-raw/ICD-10-CM.xlsx"
icd9_file <- "data-raw/ICD-9-CM.xlsx"
cm_gem_forward_file <- "data-raw/ICD-CM-GEM-Forwards.xlsx"
cm_gem_backward_file <- "data-raw/ICD-CM-GEM-Backwards.xlsx"
cols <- c("text","text")

##### Import ICD-10-CM ######
icd10_cm_2014 <- read_excel(icd10_file,sheet = "2014", col_types = cols)
icd10_cm_2015 <- read_excel(icd10_file,sheet = "2015", col_types = cols)
icd10_cm_2016 <- read_excel(icd10_file,sheet = "2016", col_types = cols)
icd10_cm_2017 <- read_excel(icd10_file,sheet = "2017", col_types = cols)
icd10_cm_2018 <- read_excel(icd10_file,sheet = "2018", col_types = cols)

names(icd10_cm_2014) <-
	names(icd10_cm_2015) <-
	names(icd10_cm_2016) <-
	names(icd10_cm_2017) <-
	names(icd10_cm_2018) <-
	c("code","description")

icd10 <- list(
	"2014"=icd10_cm_2014,
	"2015"=icd10_cm_2015,
	"2016"=icd10_cm_2016,
	"2017"=icd10_cm_2017,
	"2018"=icd10_cm_2018)
rm(icd10_cm_2014,icd10_cm_2015,icd10_cm_2016,icd10_cm_2017,icd10_cm_2018)
rm(icd10_file)

devtools::use_data(icd10,overwrite = T)

##### Import ICD-9 CM #####
icd9_cm_2005 <- read_excel(icd9_file, sheet = "20051001", col_types = cols)
icd9_cm_2006 <- read_excel(icd9_file, sheet = "20061001", col_types = cols)
icd9_cm_2007 <- read_excel(icd9_file, sheet = "20071001", col_types = cols)
icd9_cm_2008 <- read_excel(icd9_file, sheet = "20081001", col_types = cols)
icd9_cm_2009 <- read_excel(icd9_file, sheet = "20091001", col_types = cols)
icd9_cm_2010 <- read_excel(icd9_file, sheet = "20101001", col_types = cols)
icd9_cm_2011 <- read_excel(icd9_file, sheet = "20111001", col_types = cols)
icd9_cm_2012 <- read_excel(icd9_file, sheet = "20121001", col_types = cols)
icd9_cm_2013 <- read_excel(icd9_file, sheet = "20131001", col_types = cols)
icd9_cm_2014 <- read_excel(icd9_file, sheet = "20141001", col_types = cols)

names(icd9_cm_2005) <-
	names(icd9_cm_2006) <-
	names(icd9_cm_2007) <-
	names(icd9_cm_2008) <-
	names(icd9_cm_2009) <-
	names(icd9_cm_2010) <-
	names(icd9_cm_2011) <-
	names(icd9_cm_2012) <-
	names(icd9_cm_2013) <-
	names(icd9_cm_2014) <-
	c("code","description")

icd9 <- list(
	"2005"=icd9_cm_2005,
	"2006"=icd9_cm_2006,
	"2007"=icd9_cm_2007,
	"2008"=icd9_cm_2008,
	"2009"=icd9_cm_2009,
	"2010"=icd9_cm_2010,
	"2011"=icd9_cm_2011,
	"2012"=icd9_cm_2012,
	"2013"=icd9_cm_2013,
	"2014"=icd9_cm_2014)
rm(icd9_cm_2005,icd9_cm_2006,icd9_cm_2007,icd9_cm_2008,icd9_cm_2009,icd9_cm_2010,icd9_cm_2011,icd9_cm_2012,icd9_cm_2013,icd9_cm_2014)
rm(icd9_file)

devtools::use_data(icd9,overwrite = T)




##### Import ICD9 -> 10 GEM #####
gem_forward_2014 <- read_excel(cm_gem_forward_file, sheet = "2014")
gem_forward_2015 <- read_excel(cm_gem_forward_file, sheet = "2015")
gem_forward_2016 <- read_excel(cm_gem_forward_file, sheet = "2016")
gem_forward_2017 <- read_excel(cm_gem_forward_file, sheet = "2017")
gem_forward_2018 <- read_excel(cm_gem_forward_file, sheet = "2018")


names(gem_forward_2014) <-
	names(gem_forward_2015) <-
	names(gem_forward_2016) <-
	names(gem_forward_2017) <-
	names(gem_forward_2018) <-
	c("ICD9","ICD10","Approximate","No.Map","Combination","Scenario","Choice List")

gem.cm.forward <- list(
	"2014"=gem_forward_2014,
	"2015"=gem_forward_2015,
	"2016"=gem_forward_2016,
	"2017"=gem_forward_2017,
	"2018"=gem_forward_2018)

rm(gem_forward_2014,gem_forward_2015,gem_forward_2016,gem_forward_2017,gem_forward_2018)
rm(cm_gem_forward_file)



##### Import ICD10 -> 9 GEM #####
gem_backward_2014 <- read_excel(cm_gem_backward_file, sheet = "2014")
gem_backward_2015 <- read_excel(cm_gem_backward_file, sheet = "2015")
gem_backward_2016 <- read_excel(cm_gem_backward_file, sheet = "2016")
gem_backward_2017 <- read_excel(cm_gem_backward_file, sheet = "2017")
gem_backward_2018 <- read_excel(cm_gem_backward_file, sheet = "2018")


names(gem_backward_2014) <-
	names(gem_backward_2015) <-
	names(gem_backward_2016) <-
	names(gem_backward_2017) <-
	names(gem_backward_2018) <-
	c("ICD10","ICD9","Approximate","No.Map","Combination","Scenario","Choice List")

gem.cm.backward <- list(
	"2014"=gem_backward_2014,
	"2015"=gem_backward_2015,
	"2016"=gem_backward_2016,
	"2017"=gem_backward_2017,
	"2018"=gem_backward_2018)

rm(gem_backward_2014,gem_backward_2015,gem_backward_2016,gem_backward_2017,gem_backward_2018)
rm(cm_gem_backward_file)

devtools::use_data(gem.cm.forward,gem.cm.backward, internal = T, overwrite = T)